home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 008 / src / rnd.c < prev    next >
Text File  |  1995-03-17  |  271b  |  29 lines
  1. #define RND(x)    ((rand()>>3) % x)
  2.  
  3. rn1(x,y)
  4. register int x,y;
  5. {
  6.     return(RND(x)+y);
  7. }
  8.  
  9. rn2(x)
  10. register int x;
  11. {
  12.     return(RND(x));
  13. }
  14.  
  15. rnd(x)
  16. register int x;
  17. {
  18.     return(RND(x)+1);
  19. }
  20.  
  21. d(n,x)
  22. register int n,x;
  23. {
  24.     register int tmp = n;
  25.  
  26.     while(n--) tmp += RND(x);
  27.     return(tmp);
  28. }
  29.